home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / Source / MSG Demo 1.4.source Folder / Demo ƒ / Wipes ƒ / Full scroll down.c < prev    next >
Text File  |  1994-04-19  |  2KB  |  66 lines
  1. /**********************************************************************\
  2.  
  3. File:        Full scroll down.c
  4.  
  5. Purpose:    Graphic effect from offscreen bitmap to main window (on
  6.             screen).  See comments below for more description.
  7.  
  8. This program is free software; you can redistribute it and/or modify
  9. it under the terms of the GNU General Public License as published by
  10. the Free Software Foundation; either version 2 of the License, or
  11. (at your option) any later version.
  12.  
  13. This program is distributed in the hope that it will be useful,
  14. but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. GNU General Public License for more details.
  17.  
  18. You should have received a copy of the GNU General Public License
  19. along with this program in a file named "GNU General Public License".
  20. If not, write to the Free Software Foundation, 675 Mass Ave,
  21. Cambridge, MA 02139, USA.
  22.  
  23. \**********************************************************************/
  24.  
  25. #include "timing.h"
  26.  
  27. #define CorrectTime 3
  28. #define theWindowHeight (boundsRect.bottom-boundsRect.top)
  29. #define theWindowWidth (boundsRect.right-boundsRect.left)
  30.  
  31. pascal short FullScrollUD(GrafPtr sourceGrafPtr, GrafPtr destGrafPtr, Rect boundsRect);
  32.  
  33. /* Take the full screen minus the bottom strip, move it into the whole screen
  34.    shifted down by BoxSize, then take the bottommost source strip and put it
  35.    in the top strip of the dest. window. */
  36.    
  37. pascal short FullScrollUD(GrafPtr sourceGrafPtr, GrafPtr destGrafPtr, Rect boundsRect)
  38. {
  39.     int            x, y;
  40.     Rect        theRect, dest;
  41.     int            BoxSize;
  42.     
  43.     BoxSize=theWindowHeight/25;
  44.     
  45.     dest = boundsRect;
  46.     dest.bottom=dest.top+BoxSize;                /* top strip for new data */
  47.     
  48.     SetRect(&theRect, boundsRect.left, boundsRect.bottom-BoxSize, boundsRect.right, boundsRect.bottom);
  49.     
  50.     for(x = theWindowHeight - BoxSize; x >= 0; x -= BoxSize)
  51.     {
  52.         StartTiming();
  53.         ScrollTheRect(&boundsRect, 0, BoxSize, 0L);
  54.         CopyBits(&(sourceGrafPtr->portBits), &(destGrafPtr->portBits),
  55.                 &theRect, &dest, 0, 0L);
  56.         theRect.bottom-=BoxSize;
  57.         theRect.top-=BoxSize;
  58.         TimeCorrection(CorrectTime);
  59.     }
  60.     
  61.     CopyBits(&(sourceGrafPtr->portBits), &(destGrafPtr->portBits),
  62.         &boundsRect, &boundsRect, 0, 0L);
  63.     
  64.     return 0;
  65. }
  66.